home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 April / 64er_Magazin_86-04_1986_Markt__Technik_de.d64 / listing 6 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  668b  |  20 lines
  1. 10 rem ******** aufrufprogramm fuer teilbildschirm **********
  2. 20 rem in rem-bemerkungen jeweils werte fuer den c128
  3. 30 rem voraussetzung, dass beim c64 ab $c000
  4. 40 rem                     beim c128 ab $1400 das programm liegt.
  5. 50 rem
  6. 60 rem ------- eingabe der parameter ---------
  7. 70 print chr$(147):input"linke obere ecke z1,s1";z1,s1
  8. 80 input"rechte untere ecke z2,s2";z2,s2
  9. 90 input"farbe,wert";f,w
  10. 100 rem ------- einpoken der werte ------------
  11. 110 poke 49157,z1:rem poke 5125,z1
  12. 120 poke 49161,s1:rem poke 5129,s1
  13. 130 poke 49166,s2:rem poke 5134,s2
  14. 140 poke 49175,z2:rem poke 5143,z2
  15. 150 poke 49255,f:rem poke 5223,f
  16. 160 poke 49259,w:rem poke 5227,w
  17. 170 rem ------ aufruf der routine ------------
  18. 180 sys49152
  19. 190 end
  20.